From: Karl Fogel <kfogel@red-bean.com>
Date: Sat, 16 Jun 2007 01:25:25 +0000 (+0000)
Subject: * thingatpt.el (thing-at-point-email-regexp): Don't require two chars
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~18346
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=6e89a43755e93cdf2a36a723d636e349e9811a30;p=emacs.git

* thingatpt.el (thing-at-point-email-regexp): Don't require two chars
  before the "@" in an email address.  Andreas Roehler noticed this problem.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ec8ca907eeb..e808cf75937 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2007-06-16  Karl Fogel  <kfogel@red-bean.com>
+
+	* thingatpt.el (thing-at-point-email-regexp): Don't require two
+	chars before the "@" in an email address.  Andreas Roehler noticed
+	this problem.
+
 2007-06-15  Karl Fogel  <kfogel@red-bean.com>
 
 	* thingatpt.el: Add support for email addresses (`email').
diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 0d57091fb09..416812dbbf5 100644
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -342,7 +342,7 @@ point."
 
 ;;   Email addresses
 (defvar thing-at-point-email-regexp
-  "<?[-+_.~a-zA-Z][-+_.~:a-zA-Z0-9]+@[-.a-zA-Z0-9]+>?"
+  "<?[-+_.~a-zA-Z][-+_.~:a-zA-Z0-9]*@[-.a-zA-Z0-9]+>?"
   "A regular expression probably matching an email address.
 This does not match the real name portion, only the address, optionally
 with angle brackets.")